home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 May / PCWorld_2002-05_cd.bin / Novinky / grada / Aplikace / Titulky.dxr / 00012_Ovládání nájezd.ls < prev    next >
Encoding:
Text File  |  2002-04-14  |  968 b   |  43 lines

  1. property Znacka
  2.  
  3. on getPropertyDescriptionList
  4.   set description to [:]
  5.   addProp(description, #Znacka, [#comment: "Znacka:", #format: #string, #default: EMPTY])
  6.   return description
  7. end
  8.  
  9. on getBehaviorDescription
  10.   return "N├íjezd a klik"
  11. end
  12.  
  13. on beginSprite me
  14.   set the visible of sprite the spriteNum of me to 1
  15.   set the visible of sprite (the spriteNum of me + 1) to 0
  16. end
  17.  
  18. on endSprite me
  19. end
  20.  
  21. on mouseEnter me
  22.   puppetSound(1, "Najezd")
  23.   set the cursor of sprite the spriteNum of me to [member "ruka_1", member "ruka_2"]
  24.   set the visible of sprite (the spriteNum of me + 1) to 1
  25. end
  26.  
  27. on mouseLeave me
  28.   set the visible of sprite (the spriteNum of me + 1) to 0
  29.   set the cursor of sprite the spriteNum of me to -1
  30. end
  31.  
  32. on mouseDown me
  33.   puppetSound(1, "Klik")
  34. end
  35.  
  36. on mouseUp me
  37.   go(label(Znacka))
  38.   if the castNum of sprite 100 = the number of member "Napoveda_3" then
  39.     set the castNum of sprite 100 to member "Napoveda_1"
  40.     updateStage()
  41.   end if
  42. end
  43.